Исходный текст

Option Explicit
Call GetPass()

'========================================================
'Показать диалог в режиме ввода пароля
'========================================================
Sub GetPass()

        Dim Simple, RetVal

        'Получить ссылку на объект "Диалог"
        Set Simple = ThisApplication.Dialogs.SimpleEditDlg
        
        'Выбрать тип диалога "Пароль"
        Simple.Type = tdmSimpleEditPassword
        Simple.Caption = "Требуется авторизация"
        Simple.Prompt = "Пароль:"
        
        'Пока не будет введена строка "111" или не пользователь не
        'нажмет Cancel, не закрывать окно
        Do 
                RetVal = Simple.Show
        Loop While Simple.Text <> "111" And  RetVal <> FALSE
        
        If RetVal = FALSE Then 
                MsgBox "Пользователь отменил диалог.", vbInformation
        End If
End Sub
'========================================================